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SBEGIN RMOFSETI,000,RMSRMSO,<OPEN AND CREATE COMMON SETUP> 


COPYRIGHT ie went” 1980, 1982, 1984 BY 


DIGITAL EQUIP 1 CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESER VEDS 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SO oF TW WARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORATI ON NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Facility: RMS32 
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: Abstract: 

: routine to perform setup common to $open and $create. 

: Environment: 

3 star processor running starlet exec. 

: Author: L F Laverdure, creation date: 4-JAN-1977 

: Modified By: 

; VO3-004 pGB0014 nald G. Blai 02-Mar-1984 
oS 3 ¢ t FIBSB_AGENT MODE field; aot for access mode protected 

: es. 
0 : | 
60 ; v03-003 LJA00z5 Laurie Anderson 11-Oct-1982 ; | 
4 3 No longer need to pass RO to RMSGTSLT. Cleans up call slightly. 
00 : v03-002 LJA0017 Laurie Anderson 02-Sep-1982 
B} F Check to see if this is a restart open or create operation. 
00 : v03-001 KBT0304 Keith B. Thompson 28-Aug-1982 | 
38 5 Reorganize psects 
00 : v02-014 cds0002 C D Sae 4-Sep-1981 
8 : Always set NORECLK initially for ifab. 
$6 : V02-013 REFORMAT Keith B. Thompson 29-Jul-1980 
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RMOF SETI OPEN AND CREATE COMMON SETUP 16=SEP=1 0: AX/VMS Macro V04-00 p RMO 
valet gree 18be 90:57:56 PANS eSctahor sts t mars 1 ave fy v0% 
3 : v00O12  ¢ps0001 C D Sae 11=MAR-1980 
4 ; fix errnoslt error to ecre "RETIPAG instead of RETPAG 
0 6¢ : vO011 —- TMHOO01 T. Halvorsen 28-SEP-1979 
00 65 ; ey FSETI_LALT entry point for SETDDIR 
000 64 :-- 
000 = 65 


/ 
Ss 
; bit offset to fop 
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FOP=F ABSL_FOP*8 
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Equated Symbols: 
Own Storage: 


; Macros: 


OO ORA-PPAA_A_PP_R_R. 0000000000000000 00 00 A OOO 
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DECLARATIONS 
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v04-000 RMSFS - SOPEN AND SCREATE COMMON SETU ~SEP-1984 16: RMS.SRCIRMOFSETI.MAR;1 


-SBTTL RMSFSETI = SOPEN AND S$CREATE COMMON SETUP ROUTINE 


+ 
ca 


RMSFSETI - 
RMSFSETI_LALT = 
this routine calls RMS$FABCHK to check the basic parameters 
for a fab function, allocates and inits an ifab, an 
then STepetenes to rm$fset (at its alternate entry point) 
to finish the setup processing. 
Calling sequence: 
BSBW RMSFSETI 
Input Parameters: 
AP parameter List addr 
Implicit Inputs: 
the various fields of the fab. 
Output Parameters: 


R11 impure area address 
R10 ifab address 
R9 ifab address 


R8 fab address 
R7 caller's mode 
RO thru RS destroyed 


Implicit Outputs: 


SOOCCOCOCOCOCOOCOOOCOCOOOOOOOOCOOOOOOOCOOOOCOOoOOoO Mm, 
SOoOSCSCCOCOCSOOCOCOCOSCOOCOSOOOCSOOOCOSOOOCOOOOCOOOOOCOOCOoOSO +2 
SOOOCOCCOOCOCOOOOCOOCOOSOOOOOOSOOOCOOCOOOCOOSOOOCOoOSoOSo oo 
pelea lal wl ololololololeololeololelelelolelolelelelelelololeleolololololo) 


various fields of the ifab are initialized as 


me ee ee me ee ed 8 ed od od od od od -3 3 dd 3 3 3 3 3 

PRR R RE EWAN inonononononononnny 2 B OOOO OOOO OOOO 

AUEWWN OO ODNAME WN ODWONAUESWN 2 OOODNAU EWN OOD NEWN OODNAU 
Bete Se Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Fe Se Se Se Se Se Ge F Be Ge Ge Se Ge Ge Ge Se Ge Ge Be Ge Se 


444 well as the ifi, sts, and stv fields of the fab. 
it Completion Codes: 
0000 none. if an error is detected, returns to use 
0000 (not caller) after cleaning up and returning a " stendard 
4 rms error code, in particular, dme, ifi, or any of 
8000 the codes returned by RMSFABCHK. 

it Side Effects: 

000 

000 none 

0900 

000 -- 

0000 
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v04- RMSFSET] = SOPEN AND SCREATE COMMON SETU 5-SEP=-1984 16:21:5 RMS.SRCIRMOFSETI.MAR; 1 
148 RMSFSETI:: 
FFFD’ 30 149 BSBW RMSF ABCHK ; valid fab? 
4 139 a cepurne only if o.k. 
BR8 136 3; note: sets R11 to impure addr 
00 15 : R9 to IFI value 
000 154 3 R8 to fab addr 
3 Bee 155 BEQL RMSFSETI_ALT 
O0A7 31 000 156 BRW ERRIFI ; error if IFI non-zero 
44 157 
000 158 ; 
ih 159 ; alternate entry point - fab is already checked 
00 160 ; R7 = caller's access mode 
000 161 ; R8 = fab address 
0008 16¢ : R11 = impure area address 
0008 163; 
0008 164 
0008 165 RMSFSETI_ALT:: 
0008 166 
00U8 167 ; ; 
0008 168 ; so far, so good - time to allocate an ifab 
0008 169 ; 
0008 170 ;!!!!! 
0008 171; \may need to add code to share a page.\ 
0008 \7¢ sheers 
0008 173; 
0008 174 ; check for process permanent file setup, and 
0008 175; if so, switch the impure area pointer 
0008 176; 
0008 177 
OF 68 32 #4€1 0008 £178 BBC #FABSV_PPF+FOP,(R8),10$ ; branch if image i/o file 
03 57 91 #O00C 179 CMPB R7,#PSC$C_USER 3 attempt from user mode? 
03 12 OOOF 180 BNEQ 8$ 
QOA2 31 0011 181 BRW ERRPRV ; caught you! > f 
5B O00000000°9F DE 0014 182 8$: MOVAL @#PIO$GW_PIOIMPA,R11 : no, so it's ok - switch impure pointer 
FFE2* 30 0018 183 10S: BSBW RMSGET1PAG ; go get a free page 
03 50 58 OO1E 184 BLBS RO,12$ : 
00A4 1 0021 #185 BRW ERROR ; branch on failure 
0024 186 
0024 187; 
OnSe 138 3; set up the page/file free space header at the start of the page 
0024 190 
ae) 6° 4 191 12$: MOVL R3,R1 3; save address of page 
83 O08 AS 9E 7 135 MOVAB 8(R3),(R3)+ ; set free space address (flink) 
83 04 A3 9E 9028 19 MOVAB 4(R3),(R3)+ ; and blink ‘ 
Bs 31 DO BOE 194 MOVL = R1, (R$) + ; set free space’s f Link 
Loa) ae 0 ¢ 195 MOVL R1,(R3)+ : and its b link 
. w 8 ¢« 0 196 SUBL3 #8,R2,(R3) ; and its size (512 bytes) 
52 2E OA 039 197 MOVZBL #IFBSC_BLN/4,R2 : block size for ifab , 
FFC1* 30 O03C 198 BSBW RMSGETBL 3 get ifab space (can't fail) 
59 51 DO QOO3F 199 MOVL R1,R9 ; Save ifab address 
boc3 501 
04 b¢ ; set ifab bid (R9 points to ifab), save user mode in ifab, store 
be 7 3 agent mode in ifab. 
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rade RMSFSETI = SOPEN AND S$CREATE COMMON SETU 5-SEP-1984 i RMS. SRCIR MOF SETI.MAR;1 . 
04 5 
08 Ad 90 004 MOVB #IFBSC_BID,IFB$B_BID(RI) 
OA AD 98 90 004 § MOVB ati: MOD DE ROY ; store access mode of caller 
04 EF OQOQ4A 08 EXTZV #FABSV_FILE_MODE,- r0 = user's request-mode field 
50 4A AB 98 04 09 #FABSS~FILE—MODE,FABSB_ ACMODES (RE) LR 
57 91 005 10 CMPB RO,R? ; maximize. os uest-mode (i.e. make it 
03 JE 05 11 BGEQU «14 : less privileged) with caller's mode. 
, Se eee 05 6 MOVB R7,RO ; place maximized mode in RO 
4F AQ = 50 = 890 p28 F 14$: MOVB RO, IFBSB_AGENT_MODE(R9) ; store request mode in ifb 
005¢ 13 3 : ; 
005C 16 3; initialize bdb chain List header 
bose 518 
40 A9 40 A9 DE 005C 19 MOVAL IFB$L_BDB_FLNK(R9), IFB$L_BDB_FLNK(R9) 
44 09 40 A9 DE 0061 0 MOVAL IFBSL-BDB-FLNK(R9), IFBSL— _BDB_ “BLNK(R9) 
8298 1 $B #IFBSU_NORECLK, (R9) ; always init to no record locking. 
006A $5 ; Check to see if this is a restart open or create operation by looking for 
S44 $$¢ 3} a context XAB and whether the restart option bit is set. 
5C DD QO6A 226 PUSHL AP : Save argument pointer 
FF91" 30 Q06C 4 BSBW RMSOPNCREXAB ; Look for Context XAB 
5C BEDO O06F 28 POPL AP : Restore AP 
48 50 €9 Op ee $§° BLBC RO, ERRNOSLT : Error: return, after returning IFB pg 
04 69 38 + 007 250 BBC ati RESTART, (R9),15$ : If not restart operation, continue 
56 02 A8 C ste $3! MOVZWL FABSW_TFI(R8),R R6 ; Set up IFI value for get slot. 
007D 235 3 ; ; 
007D 34 ; allocate and initialize a slot in the ifab table 
007D $32 ; 
0070 36 
55 18 AB) DO 007D tH 15$: MOVL age! IFABTBL(R11),R5 ; get table addr 
FF7C' 30 0081 38 BSBW RMS$GT zuy 3; and get a slot 
36 50 4€9 0084 239 BLBC RO,ERRNOSLT ; branch if none 
02 AS 56 BO 0087 240 MOVW R6,F ABSW TFICRB) ; store ifi value 
0088 241 ASSUME Ines RMSSTATUS EQ 0 
0088 $5 ASSUME = V=IIO0S EQ 0 : ; 
1—E 68 €8 0088 4 BLBS (R11)720$ ; branch if not pio segment 
O08E 44 
OO8E 45 ; : 
OO8E $8 3; save rat in ifi for later input to connect 
O0O8E 47 ; 
it 48 
1E A8 FO OO8E 49 INSV ats RAT(R8) 
16 0091 250 0_PPF “RAT +<F ABSW_ IF I*8>,- 
68 98 0092 51 TEABSS7 PPF RAT, (R8) 
14 68 E1 0094 26 BBC #FABSV_ INPTFOP, (RB) ,20$ ;: branch if not *input' 
a09¢ 33 SSB #IFBSV~PPF_INPUT,(R9) : set ‘input’ flag 
or ae eo 
55 28 ; initialize the end of data scan string to a single ‘$’ 
09¢ 258 * 
00000000 ' 9F geet F 0 445 38 MOVW #1+<*A/$/a8>,a#PI1O$GT_ENDSTR 
00000000 ° 9F 2 A A 60 BICB2 #laP1O$V_EOD,a#PIOS$GW"STATUS; clear ‘looking for eod’ flag 
FF51° 31 OQOAC 61 20$: BRW RMSFSET_ALT ; finish setup processing 


G 13 


RMOF SETI OPEN AND CREATE COMMON SETUP 16-SEP-1984 AX/VMS o V04-00 Page 
POEL OHO RMSFSETI = SOPEN AND S$SCREATE COMMON SETU ets 0° ‘oF 48 RMS.SRC OFSETI. MAR; 1 . 
OAF 63 
AF 64 ; 
AF 65 ; error handling 
AF 6 : 
OAF 6 
OAF rt: ERRIFI: 
OAF 6 RMSERR IFI ; invalid ifi (must be zero) 
12 1 0B4 70 BRB ERROR 
0B6 71 
0B6 i 3 
0086 i 3; an ifab was allocated but no ifab table slot - return ifab block 
0B6 275: 
Bpee 6 3 attempt to create a process-permanent file from user mode 
00B6 78 
0086 79 ERRPRV: 
0086 80 RMSERR PRV 
0B 11 00BB 81 BRB ERROR 
00BD Hf 
00BD 283 ERRNOSLT: 
50 DD 0O0BD see PUSH RO ; Save error code. 
54 59 D0 OOBF 85 MOVL R9,RS ; ifab addr 
FF3B" 30 00¢e 386 BSBW  RM$RETIPAG > return the ifab page 
50 8ED0 Bore oe POPL RO ; Restore the error code. 
FF35° 31 00C8 $B ERROR: BRW RMSEX_NOSTR 
00cB 290 
00cB 291 .END 
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$$.PSECT_EP = 00000000 
SSRMSTEST 2 3 8 1A 
SSRMS_PBUGCHK = 19 
$SSRMS_TBUGCHK = 0000000 
SSRMS~_UMODE = 00 04 

ERRIFT AF R 01 
ERRNOSLT BD R 01 
ERROR 0 B88 C8 R 01 
ERRPRV 00000086 R 01 
F ABSB_ACMODES = 0000004A 
FABSB_RAT = es b 

F ABSL_FOP = 0 980808 
FABSS_FILE_ MODE = 000 ‘ 
FABSS_PPF_R = 0000000 
FABSV_FILE_MODE = 00000004 

F ABSV_INP = 00000013 

F ABSV_PPF = 444 dC 
FABSV_PPF_RAT = 00000006 

FABSW_ = Heat: 

FOP = 0000002 

IF BSB_AGENT_MODE = 0000004F 
1FB$B_B1D = 00000008 
1FB$B_MODE = 0000000A 
IFBSC_BID = 4444444 
IFBSC_BLN = 0000008 

IF B$L_B8DB_BLNK = 00000044 
1FB$L_BDB-FLNK = 4 ee 
1FBSV_NORECLK = 0000003 

IFBSV_PPF_ INPUT = $4944 1 
IFBSV_RESTA = 00000038 
IMPSL_IFABTBL = 00000018 
IMP$V_IIOS = 00000000 
IMPS$W_RMSSTATUS = 00000000 
PIOSGT_ENDSTR tketeeee 01 
PIOSGW_PIOIMPA teeeeeee XX (01 
P10$GW" STATUS teeneeee 91 
P10$v_EoD = 00000001 
PSLSC_USER = 00000003 
RMSEX”_NOSTR teeeeeee XX 01 
RMSF ABCHK etereeee = X 01 
RMSF SETI 00000000 RG 01 
RMSFSETI_ALT 00000008 RG 01 | 
RMSFSET_ ALT teeneere = X 01 
RMSGET1PAG eeeeeree =X 01 
RMSGE TBLK tenenere = X (1 
RMSGTSLT teeneeee§ KX 01 
RMSOPNCREXAB teeeeeee = X 01 
RMSRETIPAG teererer = X (01 
RMS$_IF I = 00018564 
RMS$_PRV = 0001829A 
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Psect synopsis 5 : 


RMS. SROIR OF SETI «MAR; 1 


an 


PSECT name Allocation PSECT No. Attributes 


00000000 “( 4° 00 ( 0.) NOPIC USR CON ABS LCL ag ee NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSO Q00000CB ¢ 203.) O01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
00000000 < 0.) O02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


goceccceceeeccecseceecece 


ewe eee ee mee ee ee we emer eee ee + 


Initialization 31 00:00:00.08 00:00:01.20 
peunene processing 122 00:00:00.64 00:00:04.10 
247 00:00:06.42 00:00:20.02 
Symbol table sort 0 00:00:00.70 00:00:01.18 
s 2 62 00:00:01.30 00:00:03.40 
Syabot table output 8 00:00:00.07 bs 4 SY 
Psect synopsis output 2 00:00:00.03 00:00:00.1 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 474 00:00:09.25 00:00:30.15 


The working set Limit was 1350 pages. 

35101 bytes (69 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 663 non-local and 8 local symbols. 
291 source Lines were read in Pass 1, producing 13 object records in Pass 2 

19 pages of virtual memory were used to define 18 macros. 


feo So ae ee me ee ee a ee ee ee ee ee $ 


Macro Library name Macros defined 


-$255$DUA28: “oi OBJJRMS.MLB; 1 8 
~$255$DU A28: $.OBJJLIB.MLB;1 1 
“$255$DUA28: oye SBISTARLET. MLB; 2 5 
TOTALS (all libraries) 14 


761 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMOFSETI/OBJ=OBJ$:RMOFSETI MSRCS$:RMOFSETI/UPDATE=(ENHS: RMOF SETI) +EXECML$/L1IB+LIB$:RMS/LIB 
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